#!/usr/bin/perl

# Purge non-essential packages

#Copyright (c) 2005 Apple Computer, Inc.  All Rights Reserved.
#
#This program is free software; you can redistribute it and/or modify
#it under the terms of the GNU General Public License as published by
#the Free Software Foundation; either version 2 of the License, or
#(at your option) any later version.
#
#This program is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#GNU General Public License for more details.
#
#You should have received a copy of the GNU General Public License
#along with this program; if not, write to the Free Software
#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

use strict;
use warnings;
use FindBin qw($Bin);
use lib "$Bin/../lib";
use FinkLib;

die "Usage: $0 finkdir" unless @ARGV == 1;
my $FinkDir = shift;

if ($FinkDir and not -d $FinkDir) {
  die "The specified Fink directory does not exist.\n";
} elsif ($FinkDir and not -x "$FinkDir/bin/fink") {
  die "The specified Fink directory does not appear to contain a Fink installation.\n";
}


FinkLib::initFink($FinkDir);
FinkLib::purgeNonEssential();
